home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD Fun House 1
/
CD Fun House (Wayzata Technology).iso
/
•The School House•
/
HeloMath ••••
/
HeloMath ееее.rsrc
/
CODE_4_About.txt
< prev
next >
Wrap
Text File
|
1988-10-20
|
17KB
|
308 lines
# near model CODE resource
# jump table entries: 112-113 (2 of them)
export_14:
00000000 4E56 E878 link A6, -0x1788
00000004 2F07 move.l -[A7], D7
00000006 3D7C 0026 E886 move.w [A6 - 0x177A], 0x26 /* '&' */
0000000C 41EE E890 lea.l A0, [A6 - 0x1770]
00000010 2D48 E882 move.l [A6 - 0x177E], A0
00000014 486E E888 pea.l [A6 - 0x1778]
00000018 2F3C 0064 02BC move.l -[A7], 0x6402BC
0000001E 2F3C 00C8 03E8 move.l -[A7], 0xC803E8
00000024 A8A7 syscall SetRect
00000026 486E E87A pea.l [A6 - 0x1786]
0000002A 2F3C 0032 0000 move.l -[A7], 0x320000 /* '2\0\0' */
00000030 2F3C 0096 012C move.l -[A7], 0x96012C
00000036 A8A7 syscall SetRect
00000038 486D C3D4 pea.l [A5 - 0x3C2C]
0000003C 486E E882 pea.l [A6 - 0x177E]
00000040 486E E87A pea.l [A6 - 0x1786]
00000044 486E E888 pea.l [A6 - 0x1778]
00000048 4267 clr.w -[A7]
0000004A 42A7 clr.l -[A7]
0000004C A8EC syscall CopyBits
0000004E 42A7 clr.l -[A7]
00000050 3F3C 0104 move.w -[A7], 0x104
00000054 42A7 clr.l -[A7]
00000056 70FF moveq.l D0, 0xFFFFFFFF
00000058 2F00 move.l -[A7], D0
0000005A A9BD syscall GetNewWindow
0000005C 2B5F FF18 move.l [A5 - 0xE8], [A7]+
00000060 2F2D FF18 move.l -[A7], [A5 - 0xE8]
00000064 A873 syscall SetPort
00000066 4267 clr.w -[A7]
00000068 A887 syscall TextFont
0000006A 3F3C 000C move.w -[A7], 0xC
0000006E A88A syscall TextSize
00000070 7E01 moveq.l D7, 0x01
00000072 6000 00A6 bra +0xA8 /* 0000011A */
label00000076:
00000076 3F07 move.w -[A7], D7
00000078 A88A syscall TextSize
0000007A 2F3C 0028 0014 move.l -[A7], 0x280014
00000080 A893 syscall MoveTo
00000082 2F3C 000F 0046 move.l -[A7], 0xF0046
00000088 A893 syscall MoveTo
0000008A 487A 012C pea.l [PC + 0x12C /* 000001B8, value 0x1448656C, pstring "HeloMath by Mark Day" */]
0000008E A884 syscall DrawString
00000090 2F3C 001E 0046 move.l -[A7], 0x1E0046
00000096 A893 syscall MoveTo
00000098 487A 010C pea.l [PC + 0x10C /* 000001A6, value 0x10343236, pstring "4265 Midland Rd." */]
0000009C A884 syscall DrawString
0000009E 2F3C 002D 0046 move.l -[A7], 0x2D0046 /* '-\0F' */
000000A4 A893 syscall MoveTo
000000A6 487A 00EC pea.l [PC + 0xEC /* 00000194, value 0x11536167, pstring "Saginaw, MI 48603" */]
000000AA A884 syscall DrawString
000000AC 2F3C 003C 0046 move.l -[A7], 0x3C0046 /* '<\0F' */
000000B2 A893 syscall MoveTo
000000B4 487A 00C8 pea.l [PC + 0xC8 /* 0000017E, value 0x14536861, pstring "Shareware Send $5.00" */]
000000B8 A884 syscall DrawString
000000BA 2F3C 004B 0046 move.l -[A7], 0x4B0046 /* 'K\0F' */
000000C0 A893 syscall MoveTo
000000C2 487A 009E pea.l [PC + 0x9E /* 00000162, value 0x1A4D5057, pstring "MPW Pascal Source Code $15" */]
000000C6 A884 syscall DrawString
000000C8 3F3C 0001 move.w -[A7], 0x1
000000CC A889 syscall TextMode
000000CE 2F3C 000F 0046 move.l -[A7], 0xF0046
000000D4 A893 syscall MoveTo
000000D6 487A 00E0 pea.l [PC + 0xE0 /* 000001B8, value 0x1448656C, pstring "HeloMath by Mark Day" */]
000000DA A884 syscall DrawString
000000DC 2F3C 001E 0046 move.l -[A7], 0x1E0046
000000E2 A893 syscall MoveTo
000000E4 487A 00C0 pea.l [PC + 0xC0 /* 000001A6, value 0x10343236, pstring "4265 Midland Rd." */]
000000E8 A884 syscall DrawString
000000EA 2F3C 002D 0046 move.l -[A7], 0x2D0046 /* '-\0F' */
000000F0 A893 syscall MoveTo
000000F2 487A 00A0 pea.l [PC + 0xA0 /* 00000194, value 0x11536167, pstring "Saginaw, MI 48603" */]
000000F6 A884 syscall DrawString
000000F8 2F3C 003C 0046 move.l -[A7], 0x3C0046 /* '<\0F' */
000000FE A893 syscall MoveTo
00000100 487A 007C pea.l [PC + 0x7C /* 0000017E, value 0x14536861, pstring "Shareware Send $5.00" */]
00000104 A884 syscall DrawString
00000106 2F3C 004B 0046 move.l -[A7], 0x4B0046 /* 'K\0F' */
0000010C A893 syscall MoveTo
0000010E 487A 0052 pea.l [PC + 0x52 /* 00000162, value 0x1A4D5057, pstring "MPW Pascal Source Code $15" */]
00000112 A884 syscall DrawString
00000114 4267 clr.w -[A7]
00000116 A889 syscall TextMode
00000118 5247 addq.w D7, 1
label0000011A:
0000011A 700C moveq.l D0, 0x0C
0000011C B047 cmp.w D0, D7
0000011E 6C00 FF56 bge -0xA8 /* 00000076 */
label00000122:
00000122 4267 clr.w -[A7]
00000124 A974 syscall Button
00000126 101F move.b D0, [A7]+
00000128 67F8 beq -0x6 /* 00000122 */
0000012A 2F2D FF18 move.l -[A7], [A5 - 0xE8]
0000012E A914 syscall DisposeWindow
00000130 2F2D FF10 move.l -[A7], [A5 - 0xF0]
00000134 A873 syscall SetPort
00000136 3F3C 0003 move.w -[A7], 0x3
0000013A A887 syscall TextFont
0000013C 486E E882 pea.l [A6 - 0x177E]
00000140 486D C3D4 pea.l [A5 - 0x3C2C]
00000144 486E E888 pea.l [A6 - 0x1778]
00000148 486E E87A pea.l [A6 - 0x1786]
0000014C 4267 clr.w -[A7]
0000014E 42A7 clr.l -[A7]
00000150 A8EC syscall CopyBits
00000152 2E1F move.l D7, [A7]+
00000154 4E5E unlink A6
00000156 4E75 rts
00000158 C142 exg D0, D2
0000015A 4F55 chk.w D7, [A5]
0000015C 544D addq.w A5, 2
0000015E 4143 chk.w D0, D3
00000160 006C 1A4D 5057 ori.w [A4 + 0x5057], 0x1A4D
00000166 2050 movea.l A0, [A0]
00000168 6173 bsr +0x75 /* 000001DD */
0000016A 6361 bls +0x63 /* 000001CD */
0000016C 6C20 bge +0x22 /* 0000018E */
0000016E 536F 7572 subq.w [A7 + 0x7572], 1
00000172 6365 bls +0x67 /* 000001D9 */
00000174 2043 movea.l A0, D3
00000176 6F64 ble +0x66 /* 000001DC */
00000178 6520 bcs +0x22 /* 0000019A */
0000017A 2431 3500 move.l D2, [A1 + <<invalid base displacement size>> + D3 * 4]
0000017E 1453 movea.b A2, [A3]
00000180 6861 bvc +0x63 /* 000001E3 */
00000182 7265 moveq.l D1, 0x65
00000184 7761 moveq.l D3, 0x61
00000186 7265 moveq.l D1, 0x65
00000188 2053 movea.l A0, [A3]
0000018A 656E bcs +0x70 /* 000001FA */
0000018C 6420 bcc +0x22 /* 000001AE */
label0000018E:
0000018E 2435 2E30 move.l D2, [A5 + D2 * 8 + 0x30]
00000192 3000 move.w D0, D0
00000194 1153 6167 move.b [A0 + 0x6167], [A3]
00000198 696E bvs +0x70 /* 00000208 */
label0000019A:
0000019A 6177 bsr +0x79 /* 00000213 */
0000019C 2C20 move.l D6, -[A0]
0000019E 4D49 chk.w D6, A1
000001A0 2034 3836 move.l D0, [A4 + D3 + 0x36]
000001A4 3033 1034 move.w D0, [A3 + D1.w + 0x34]
000001A8 3236 3520 4D69 move.w D1, [A6 + 0x4D69 + D3 * 4]
label000001AE:
000001AE 646C bcc +0x6E /* 0000021C */
000001B0 616E bsr +0x70 /* 00000220 */
000001B2 6420 bcc +0x22 /* 000001D4 */
000001B4 5264 addq.w -[A4], 1
000001B6 2E00 move.l D7, D0
000001B8 1448 movea.b A2, A0
000001BA 656C bcs +0x6E /* 00000228 */
000001BC 6F4D ble +0x4F /* 0000020B */
000001BE 6174 bsr +0x76 /* 00000234 */
000001C0 6820 bvc +0x22 /* 000001E2 */
000001C2 6279 bhi +0x7B /* 0000023D */
000001C4 204D movea.l A0, A5
000001C6 6172 bsr +0x74 /* 0000023A */
000001C8 6B20 bmi +0x22 /* 000001EA */
000001CA 4461 neg.w -[A1]
000001CC 7900 moveq.l D4, 0x00
fn000001CE:
000001CE 4E56 FFFA link A6, -0x0006
000001D2 48E7 0320 movem.l -[A7], D6,D7,A2
// begin alternate branch 000001D4-000001D6
label000001D4:
000001D4 0320 btst -[A0], D1
// end alternate branch 000001D4-000001D6
label000001D4: // (misaligned)
000001D6 206E 0008 movea.l A0, [A6 + 0x8]
000001DA 3010 move.w D0, [A0]
label000001DC:
000001DC 5340 subq.w D0, 1
000001DE 3D40 FFFA move.w [A6 - 0x6], D0
label000001E2:
000001E2 7E01 moveq.l D7, 0x01
000001E4 607A bra +0x7C /* 00000260 */
label000001E6:
000001E6 206E 0008 movea.l A0, [A6 + 0x8]
label000001EA:
000001EA 3010 move.w D0, [A0]
000001EC D040 add.w D0, D0
000001EE 206E 0008 movea.l A0, [A6 + 0x8]
000001F2 3210 move.w D1, [A0]
000001F4 9247 sub.w D1, D7
000001F6 D241 add.w D1, D1
000001F8 41ED DE1C lea.l A0, [A5 - 0x21E4]
// begin alternate branch 000001FA-000001FC
label000001FA:
000001FA DE1C add.b D7, [A4]+
// end alternate branch 000001FA-000001FC
label000001FA: // (misaligned)
000001FC 3430 0000 move.w D2, [A0 + D0.w]
00000200 B470 1000 cmp.w D2, [A0 + D1.w]
00000204 6656 bne +0x58 /* 0000025C */
00000206 42A7 clr.l -[A7]
label00000208:
00000208 A975 syscall TickCount
0000020A 2B5F C3D0 move.l [A5 - 0x3C30], [A7]+
0000020E 206E 0010 movea.l A0, [A6 + 0x10]
00000212 2F08 move.l -[A7], A0
00000214 4267 clr.w -[A7]
00000216 A861 syscall Random
00000218 301F move.w D0, [A7]+
0000021A 205F movea.l A0, [A7]+
label0000021C:
0000021C 4A40 tst.w D0
0000021E 6A02 bpl +0x4 /* 00000222 */
fn00000220:
00000220 4440 neg.w D0
label00000222:
00000222 226E 000C movea.l A1, [A6 + 0xC]
00000226 246E 0010 movea.l A2, [A6 + 0x10]
// begin alternate branch 00000228-0000022C
label00000228:
00000228 0010 3211 ori.b [A0], 0x11
// end alternate branch 00000228-0000022C
label00000228: // (misaligned)
0000022A 3211 move.w D1, [A1]
0000022C 9252 sub.w D1, [A2]
0000022E 5241 addq.w D1, 1
00000230 48C0 ext.l D0
00000232 81C1 divs.w D0, D1
fn00000234:
00000234 4840 swap.w D0
00000236 4A40 tst.w D0
00000238 3C00 move.w D6, D0
fn0000023A:
0000023A DC50 add.w D6, [A0]
0000023C 206E 0008 movea.l A0, [A6 + 0x8]
00000240 3010 move.w D0, [A0]
00000242 D040 add.w D0, D0
00000244 41ED DE1C lea.l A0, [A5 - 0x21E4]
00000248 3186 0000 move.w [A0 + D0.w], D6
0000024C 2F2E 0010 move.l -[A7], [A6 + 0x10]
00000250 2F2E 000C move.l -[A7], [A6 + 0xC]
00000254 2F2E 0008 move.l -[A7], [A6 + 0x8]
00000258 4EBA FF74 jsr [PC - 0x8C /* 000001CE */]
label0000025C:
0000025C 5247 addq.w D7, 1
0000025E 6906 bvs +0x8 /* 00000266 */
label00000260:
00000260 BE6E FFFA cmp.w D7, [A6 - 0x6]
00000264 6F80 ble -0x7E /* 000001E6 */
label00000266:
00000266 4CDF 04C0 movem.l D6,D7,A2, [A7]+
0000026A 4E5E unlink A6
0000026C 205F movea.l A0, [A7]+
0000026E DEFC 000C add.w A7, 0xC
00000272 4ED0 jmp [A0]
00000274 C348 exg A1, A0
00000276 4543 chk.w D2, D3
00000278 4B4E chk.w D5, A6
0000027A 554D subq.w A5, 2
0000027C 0000 4E56 ori.b D0, 0x56 /* 'V' */
export_15: // at 0000027E (misaligned)
00000280 FFFA .invalid <<F/7/7>>
00000282 3D6E 0008 FFFA move.w [A6 - 0x6], [A6 + 0x8]
00000288 3D7C 0001 FFFE move.w [A6 - 0x2], 0x1
0000028E 6052 bra +0x54 /* 000002E2 */
label00000290:
00000290 42A7 clr.l -[A7]
00000292 A975 syscall TickCount
00000294 2B5F C3D0 move.l [A5 - 0x3C30], [A7]+
00000298 4267 clr.w -[A7]
0000029A A861 syscall Random
0000029C 301F move.w D0, [A7]+
0000029E 6A02 bpl +0x4 /* 000002A2 */
000002A0 4440 neg.w D0
label000002A2:
000002A2 322E 000A move.w D1, [A6 + 0xA]
000002A6 926E 000C sub.w D1, [A6 + 0xC]
000002AA 5241 addq.w D1, 1
000002AC 48C0 ext.l D0
000002AE 81C1 divs.w D0, D1
000002B0 4840 swap.w D0
000002B2 4A40 tst.w D0
000002B4 D06E 000C add.w D0, [A6 + 0xC]
000002B8 3D40 FFFC move.w [A6 - 0x4], D0
000002BC 302E FFFE move.w D0, [A6 - 0x2]
000002C0 D040 add.w D0, D0
000002C2 41ED DE1C lea.l A0, [A5 - 0x21E4]
000002C6 31AE FFFC 0000 move.w [A0 + D0.w], [A6 - 0x4]
000002CC 486E 000C pea.l [A6 + 0xC]
000002D0 486E 000A pea.l [A6 + 0xA]
000002D4 486E FFFE pea.l [A6 - 0x2]
000002D8 4EBA FEF4 jsr [PC - 0x10C /* 000001CE */]
000002DC 526E FFFE addq.w [A6 - 0x2], 1
000002E0 690A bvs +0xC /* 000002EC */
label000002E2:
000002E2 302E FFFE move.w D0, [A6 - 0x2]
000002E6 B06E FFFA cmp.w D0, [A6 - 0x6]
000002EA 6FA4 ble -0x5A /* 00000290 */
label000002EC:
000002EC 4E5E unlink A6
000002EE 205F movea.l A0, [A7]+
000002F0 5C4F addq.w A7, 6
000002F2 4ED0 jmp [A0]
000002F4 C745 exg D3, D5
000002F6 5452 addq.w [A2], 2
000002F8 414E chk.w D0, A6
000002FA 4420 neg.b -[A0]
000002FC 0000 .incomplete